﻿module RenderingContext

open System.Windows

type RenderingContext(c:System.Windows.Media.DrawingContext, pos:Point)=
    member this.context = c
    member this.pos = pos
    member this.move(x:int, y:int) =
        let p2 = this.posAdd(x, y)
        RenderingContext(this.context, p2)
    member this.posAdd(x:int, y:int) =
        pos + new Vector(float(x), float(y))

